home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / spread / portab < prev    next >
Text File  |  1996-04-11  |  661b  |  26 lines
  1. vocabulary spread
  2. only forth also  spread also  definitions
  3. \ Portability definitions
  4. \ Inputs special ibm keys.  Sets bit 7 if key is special.
  5. : ibm_key  ( -- ascii | scan-code+128 )
  6.    cursor-on
  7.    [ system ] c_rawcin  ( scan-code|ascii )   dup th ff and
  8.    if    th 7f and  else  th 10 >> th 7f and  th 80 +  then
  9.    cursor-off
  10. ;
  11.  
  12. \ Portability: Terminal control
  13.  
  14. : blot  ( column# -- )  drop kill-line  ;
  15. alias dark erase-screen
  16. : erase-rest-of-screen  ( -- )  kill-screen  ;
  17.  
  18. \ Portability: 32-bit operators
  19. : l/ / ;  : lmod mod ;
  20.  
  21. \ Screen size
  22. \ 80 constant screen-width
  23. \ 25 constant screen-height
  24. alias screen-width #columns
  25. alias screen-height #lines
  26.